home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / BOUNCE.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  379 b   |  18 lines
  1. 10 SCREEN 2:CLS:KEY OFF
  2. 20 Q=1
  3. 30 C=1:D=1
  4. 40 C1=1:D1=1
  5. 50 IF C=640 AND D=0 THEN C=54:D=1:GOTO 120
  6. 60 IF C=54 AND D=1 THEN C=13:D=1:GOTO 120
  7. 70 IF C=13 AND D=1 THEN Q=ABS(Q=0):GOTO 30
  8. 80 IF C=640 THEN C1=-1
  9. 90 IF C=0 THEN C1=1
  10. 100 IF D=200 THEN D1=-1
  11. 110 IF D=0 THEN D1=1
  12. 120 C=C+C1
  13. 130 D=D+D1
  14. 140 PSET(C,D),Q
  15. 150 IF INKEY$=CHR$(27) THEN 170
  16. 160 GOTO 50
  17. 170 END
  18.